home *** CD-ROM | disk | FTP | other *** search
/ Alpha CD-ROM Bonus Pack / Alpha CD-ROM Bonus Pack.iso / newcar / intelcbg.exe / intelcbg.DXR / 00014.ls < prev    next >
Encoding:
Text File  |  1995-02-24  |  786 b   |  40 lines
  1. global flash, show
  2.  
  3. on exitFrame
  4.   if flash = (show + 6) then
  5.     if string(getAt(sfx, show)) <> EMPTY then
  6.       puppetSound(string(getAt(sfx, show)))
  7.     else
  8.       startTimer()
  9.       repeat while the timer < 60
  10.         nothing()
  11.       end repeat
  12.     end if
  13.     updateStage()
  14.     repeat while soundBusy(1)
  15.       nothing()
  16.     end repeat
  17.     set flash to show
  18.     set show to show + 1
  19.   else
  20.     if show = 8 then
  21.       startFresh()
  22.       go("start")
  23.     else
  24.       set flash to flash + 1
  25.       if the frameLabel = "last" then
  26.         go("start")
  27.       else
  28.         go(the frame + 1)
  29.       end if
  30.     end if
  31.   end if
  32.   if ((flash = 7) and (show = 8)) or the optionDown then
  33.     puppetSound(0)
  34.     startTimer()
  35.     repeat while the timer < 90
  36.       nothing()
  37.     end repeat
  38.   end if
  39. end
  40.